home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / patches / pgs3bf.lha / 3.0fUpdate / Install-PageStream3.0f next >
Text File  |  1995-02-10  |  17KB  |  456 lines

  1. ;PAGESTREAM 3.0f ONLINE UPDATE PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1995 SOFT-LOGIK PUBLISHING CORPORATION
  3.  
  4. ;TEST TO SEE IF THEY HAVE BOTH ARCHIVES
  5. (if (<> (exists "Engines.LHA") 1)
  6.     (abort "You did not download the PGS3F.LHA archive. Download it and decompress it to the same directory as you decompressed this archive before continuing.")
  7. )
  8.  
  9. ;SEE IF PAGESTREAM3 AND SOFTLOGIK ARE ASSIGNED AND EVERYTHING EXISTS
  10. (set PGSdest (getassign "PageStream3" "a"))
  11. (set SLdest (getassign "SoftLogik" "a"))
  12. (if (OR (= PGSdest "") (= SLdest ""))
  13.     (abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream3 before applying this update patch.")
  14. )
  15. (set @default-dest PGSdest)
  16. (if (<> (exists "PageStream3:PageStream3") 1)
  17.     (abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3 before applying this update patch.")
  18. )
  19. (if (<> (exists "SoftLogik:Libs") 2)
  20.     (makedir "SoftLogik:Libs" (infos))
  21. )
  22. (if (<> (exists "SoftLogik:Engines") 2)
  23.     (makedir "SoftLogik:Engines" (infos))
  24. )
  25. (if (<> (exists "SoftLogik:Printers") 2)
  26.     (makedir "SoftLogik:Printers" (infos))
  27. )
  28. (if (<> (exists "SoftLogik:Filters") 2)
  29.     (makedir "SoftLogik:Filters" (infos))
  30. )
  31. (if (<> (exists "SoftLogik:Effects") 2)
  32.     (makedir "SoftLogik:Effects" (infos))
  33. )
  34. (if (<> (exists "SoftLogik:Special") 2)
  35.     (makedir "SoftLogik:Special" (infos))
  36. )
  37. (if (<> (exists "PageStream3:Help") 2)
  38.     (makedir "PageStream3:Help" (infos))
  39. )
  40. (if (<> (exists "PageStream3:Macros") 2)
  41.     (makedir "PageStream3:Macros" (infos))
  42. )
  43.  
  44. ;CHECK VERSIONS INSTALLED
  45. (working "Checking version of current PageStream3...")
  46. (makedir "env:PageStream3")
  47. (run "version PageStream3:PageStream3 full >env:PageStream3/temp")
  48. (set PGSver (substr (getenv "PageStream3/temp") 13 3))
  49. (if (= PGSver "d v")
  50.     (abort "There is insufficient memory to install this patch. Refer to the Read.1st! file for instructions.")
  51. )
  52.  
  53. (run "version PageStream3:PageLiner full >env:PageStream3/temp")
  54. (set PLver (substr (getenv "PageStream3/temp") 11 3))
  55.  
  56. ;COPY THE LHEX PROGRAM TO RAM:
  57. (copyfiles
  58.     (source "PageStream3Disk1:lhex")
  59.     (dest "ram:")
  60.     (nogauge)
  61. )
  62.  
  63. ;CHECK PATCH VERSION DOWNLOADED
  64. (working "Decompressing PageStream3.0f patch...")
  65. (run "ram:lhex >NIL: <NIL: -qfw=ram: x PGSpatch.LHA")
  66. (set PGSsize (getsize "ram:PageStream3.pch"))
  67. (set PGSpatch "nil")
  68. (if (= PGSsize 167100) (set PGSpatch ".0e"))
  69. (if (= PGSsize 688000) (set PGSpatch ".0d"))
  70. (if (= PGSsize 778840) (set PGSpatch ".0c"))
  71. (if (= PGSsize 831336) (set PGSpatch ".0b"))
  72. (if (= PGSsize 815112) (set PGSpatch ".0a"))
  73. (if (= PGSsize 836784) (set PGSpatch ".0 "))
  74.  
  75. ;DOES THE PATCH MATCH THE VERSION INSTALLED?
  76. (if (= PGSpatch "nil")
  77.     (abort "You have not downloaded the required files for this patch.\n\nPlease refer to the Read.1st! file for instructions.")
  78. )
  79. (if (<> PGSpatch PGSver)
  80.     (abort "Your current PageStream3 is version 3%s, but you have downloaded a different patch!" PGSver)
  81. )
  82.  
  83. ;SEE WHAT THE USER WANTS TO INSTALL
  84. (set ALLflag 0)
  85. (set SMAflag 1)
  86.  
  87. (message ("\n\nYour current PageStream3 is version 3%s.\n\nThis patch will update your hard drive installation to version 3.0f.\n\nYour original PageStream3 disks will not be modified by this update." PGSver))
  88. (set install_mode
  89.     (askchoice
  90.         (prompt
  91.             "\nSelect an installation option.\n\nChoose `ALL' if you have a full PageStream3 installation. Choose `ONLY' if you have a custom or minimum PageStream3 installation.\n")
  92.         (choices "Install ALL improved files" "Update ONLY the currently installed files")
  93.         (default 0)
  94.         (help
  95.             "\n\nThe ONLY option will check to see if a file exists before copying the new one to your hard drive. Thus, if you deleted the HP.printer driver because you didn't need it, the new one will not be installed.")
  96.     )
  97. )
  98.  
  99. ;WARN USER IF THEY LACK THE FULL SET OF DMF FONTS
  100. (if (AND (OR (= PGSver ".0a") (= PGSver ".0 ")) (<> (exists "PageStream3:Fonts/StandardFonts/avnt_do.dmf") 1))
  101.     (message "\nYou do not have the full set of equivalents for the standard 35 fonts (see page 16 of the manual) in your PageStream3:Fonts/StandardFonts directory. These were not included with 3.0 or 3.0a, but were included in the PS3B2.LHA update. If you do not have these fonts (avnt_o.dmf, avnt_do.dmf...), you should download this update to get them. If you moved your fonts to another directory, it is possible that you have these fonts but the installer could not find them.")
  102. )
  103.  
  104.  
  105. ;UPDATE LIBS
  106. (working "Installing Updated Libraries...")
  107. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
  108. (delete "Libs.LHA" (safe))
  109.  
  110. ;UPDATE SPECIAL
  111. (working "Installing Updated Clipboard file...")
  112. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Special x Special.lha")
  113. (delete "Special.LHA" (safe))
  114.  
  115. ;UPDATE ENGINES
  116. (working "Installing Updated Engines...")
  117. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha")
  118. (delete "Engines.LHA" (safe))
  119. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Engines/PageMaker.codes"))
  120.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x PMcode.LHA")
  121. )
  122. (delete "PMcode.LHA" (safe))
  123. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Engines/ProPage.codes"))
  124.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x PPcode.LHA")
  125. )
  126. (delete "PPcode.LHA" (safe))
  127. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Engines/XPress.codes"))
  128.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x XPcode.LHA")
  129. )
  130. (delete "XPcode.LHA" (safe))
  131.  
  132. ;UPDATE EFFECTS
  133. (working "Installing Updated Effects...")
  134. (if (OR (= install_mode ALLflag) (= (exists "SoftLogik:Effects") 2))
  135.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Effects x Effects.lha")
  136. )
  137. (delete "Effects.LHA" (safe))
  138.  
  139. ;UPDATE PRINTER DRIVERS
  140. (working "Installing Updated Printer Drivers...")
  141. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/HP.printer"))
  142.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x HP.lha")
  143. )
  144. (delete "HP.LHA" (safe))
  145.  
  146. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/PostScript.printer"))
  147.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x PostScript.lha")
  148. )
  149. (delete "PostScript.LHA" (safe))
  150.  
  151. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/Preference.printer"))
  152.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Preference.lha")
  153. )
  154. (delete "Preference.LHA" (safe))
  155.  
  156. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/Epson.printer"))
  157.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Epson.lha")
  158. )
  159. (delete "Epson.LHA" (safe))
  160.  
  161. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/Fargo.printer"))
  162.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Fargo.lha")
  163. )
  164. (delete "Fargo.LHA" (safe))
  165.  
  166. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Printers/IFFILBM.printer"))
  167.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x IFFILBM.lha")
  168. )
  169. (delete "IFFILBM.LHA" (safe))
  170.  
  171. ;UPDATE FILTERS
  172. (working "Installing Updated Filters...")
  173. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x Filters.lha")
  174. (delete "Filters.LHA" (safe))
  175.  
  176. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/ArtExpression.gfilter"))
  177.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterAE.lha")
  178. )
  179. (delete "FilterAE.LHA" (safe))
  180.  
  181. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/PageStream2.dfilter"))
  182.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterPGS.lha")
  183. )
  184. (delete "FilterPGS.LHA" (safe))
  185.  
  186. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/ProWrite.tfilter"))
  187.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterPW.lha")
  188. )
  189. (delete "FilterPW.LHA" (safe))
  190.  
  191. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/ProPage.dfilter"))
  192.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterPP.lha")
  193. )
  194. (delete "FilterPP.LHA" (safe))
  195.  
  196. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/ProDrawClip.gfilter"))
  197.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterPD.lha")
  198. )
  199. (delete "FilterPD.LHA" (safe))
  200.  
  201. (if (OR (= install_mode ALLflag) (OR (exists "SoftLogik:Filters/WordPerfect.tfilter") (exists "SoftLogik:Filters/WordPerfect5.tfilter")))
  202.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterWP.lha")
  203. )
  204. (delete "FilterWP.LHA" (safe))
  205.  
  206. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/Wordworth.tfilter"))
  207.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterWW.lha")
  208. )
  209. (delete "FilterWW.LHA" (safe))
  210.  
  211. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/Word.tfilter"))
  212.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterMW.lha")
  213. )
  214. (delete "FilterMW.LHA" (safe))
  215.  
  216. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/Excellence.tfilter"))
  217.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterEX.lha")
  218. )
  219. (delete "FilterEX.LHA" (safe))
  220.  
  221. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/FinalWriter.tfilter"))
  222.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterFW.lha")
  223. )
  224. (delete "FilterFW.LHA" (safe))
  225.  
  226. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/IllustratorEPS.gfilter"))
  227.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterAI.lha")
  228. )
  229. (delete "FilterAI.LHA" (safe))
  230.  
  231. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/FreehandEPS.gfilter"))
  232.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterFR.lha")
  233. )
  234. (delete "FilterFR.LHA" (safe))
  235.  
  236. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/MacPaint.gfilter"))
  237.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterMP.lha")
  238. )
  239. (delete "FilterMP.LHA" (safe))
  240.  
  241. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/GIF.gfilter"))
  242.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterGI.lha")
  243. )
  244. (delete "FilterGI.LHA" (safe))
  245.  
  246. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/TIFF.gfilter"))
  247.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterTI.lha")
  248. )
  249. (delete "FilterTI.LHA" (safe))
  250.  
  251. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/BMP.gfilter"))
  252.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterBM.lha")
  253. )
  254. (delete "FilterBM.LHA" (safe))
  255.  
  256. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/PCX.gfilter"))
  257.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x FilterPC.lha")
  258. )
  259. (delete "FilterPC.LHA" (safe))
  260.  
  261. ;UPDATE TIPS
  262. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Tips.LHA")
  263. (delete "Tips.LHA" (safe))
  264.  
  265. ;UPDATE HELP
  266. (if (exists "PageStream3:Help/PGS.HEL")
  267.     (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Help.LHA")
  268. )
  269. (delete "Help.LHA" (safe))
  270.  
  271. ;UPDATE BME2
  272. (working "Patching BME to 2.0a...")
  273. (run "ram:lhex >NIL: <NIL: -qfw=ram: x BMEpatch.LHA")
  274. (delete "BMEpatch.LHA" (safe))
  275. (run "spatch >NIL: <NIL: -oPageStream3:BME2.0a -pram:BME2.pch PageStream3:BME")
  276. (if (exists "PageStream3:BME")
  277.     (if (AND (exists "PageStream3:BME2.0a") (exists "PageStream3:BME"))
  278.         (
  279.             (delete "PageStream3:BME")
  280.             (rename "PageStream3:BME2.0a" "PageStream3:BME")
  281.         )
  282.         (message "\nThe patch to BME was not successful. Refer to the Read.1st file for further instructions.")
  283.     )
  284.     (message "\nBME was not patched because it was not installed.")
  285. )
  286. (delete "ram:BME2.pch" (safe))
  287.  
  288. ;UPDATE PAGELINER2
  289. (working "Patching PageLiner to 2.0c...")
  290. (run "ram:lhex >NIL: <NIL: -qfw=ram: x PLpatch.LHA")
  291. (delete "PLpatch.LHA" (safe))
  292. (if (= PLver ".0 ")
  293.     (run "spatch >NIL: <NIL: -oPageStream3:PageLiner2.0c -pram:PageLiner20c.pch PageStream3:PageLiner")
  294. )
  295. (if (= PLver ".0a")
  296.     (run "spatch >NIL: <NIL: -oPageStream3:PageLiner2.0c -pram:PageLiner2ac.pch PageStream3:PageLiner")
  297. )
  298. (if (= PLver ".0b")
  299.     (run "spatch >NIL: <NIL: -oPageStream3:PageLiner2.0c -pram:PageLiner2bc.pch PageStream3:PageLiner")
  300. )
  301. (if (exists "PageStream3:PageLiner")
  302.     (if (AND (exists "PageStream3:PageLiner2.0c") (exists "PageStream3:PageLiner"))
  303.         (
  304.             (delete "PageStream3:PageLiner")
  305.             (rename "PageStream3:PageLiner2.0c" "PageStream3:PageLiner")
  306.         )
  307.         (message "\nThe patch to PageLiner was not successful. Refer to the Read.1st file for further instructions.")
  308.     )
  309.     (message "\nPageLiner was not patched because it was not installed.")
  310. )
  311. (delete "ram:PageLiner20c.pch" (safe))
  312. (delete "ram:PageLiner2ac.pch" (safe))
  313. (delete "ram:PageLiner2bc.pch" (safe))
  314.  
  315. ;INSTALL PAGELINER.PREFS
  316. (if (exists "PageStream3:PageLiner")
  317.     (if (<> (exists "PageStream3:PageLiner.prefs") 1)
  318.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PLprefs.LHA")
  319.     )
  320. )
  321. (delete "PLprefs.LHA" (safe))
  322.  
  323. ;INSTALL ICONS
  324. (if (= PGSver ".0d")
  325.     (if
  326.         (askbool
  327.             (prompt
  328.                 "\nIf 3.0d was your first version of PageStream3, you may not have the PageStream3 icon.\n\n"
  329.                 "Do you want to install the PageStream3 icon now?\n\n")
  330.             (help
  331.                 "The stack size for PageStream3 is 8192. A larger stack size is of no extra value, but the program cannot be used with a smaller stack. Stack sizes are set in programs' .info files, and can be viewed and changed with the Workbench Information command. The icon must be present to set the stack size.")
  332.             (choices "Install" "Skip this step")
  333.             (default 0)
  334.         )
  335.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PGSicon.LHA")
  336.     )
  337. )
  338. (delete "PGSicon.LHA" (safe))
  339.  
  340. (if (<> (exists "PageStream3:BME.info") 1)
  341.     (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x BMEicon.LHA")
  342. )
  343. (delete "BMEicon.LHA" (safe))
  344.  
  345. ;INSTALL FONTLISTv2ANALYZER
  346. (if (OR (= install_mode ALLflag) (exists "SoftLogik:Filters/PageStream2.dfilter"))
  347.     (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x FLister.LHA")
  348. )
  349. (delete "FLister.LHA" (safe))
  350.  
  351. ;INSTALL FONT DOWNLOADER
  352. (if
  353.     (askbool
  354.         (prompt
  355.             "\nDo you want to install the\nPostScript FontDownloader utility?\n\n"
  356.             "This was accidentally omitted from previous\nreleases of PageStream3.")
  357.         (help
  358.             "Refer to page 321 for information about FontDownloader. This is only of use if you have a PostScript printer.")
  359.         (choices "Install" "Skip this step")
  360.         (default 0)
  361.     )
  362.     (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x FDloader.LHA")
  363. )
  364. (delete "FDloader.LHA" (safe))
  365.  
  366. ;UPDATE PAGESTREAM2.FONTLIST
  367. (if (AND (exists "SoftLogik:Filters/PageStream2.dfilter") (OR (= PGSver ".0a") (= PGSver ".0 ")))
  368.     (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x PGSfontlist.LHA")
  369. )
  370. (delete "PGSfontlist.LHA" (safe))
  371.  
  372. ;UPDATE PAGESTREAM3
  373. (working "Patching PageStream to 3.0f...\n\nThis will take from one to five minutes.")
  374. (delete "PGSpatch.LHA" (safe))
  375. (run "spatch >NIL: <NIL: -oPageStream3:PageStream3.0f -pram:PageStream3.pch PageStream3:PageStream3")
  376. (if (exists "PageStream3:PageStream3.0f")
  377.     (
  378.         (delete "PageStream3:PageStream3")
  379.         (rename "PageStream3:PageStream3.0f" "PageStream3:PageStream3")
  380.     )
  381.     (abort "Patch was not successful. Cause was probably lack of RAM, a bad disk, or an incorrect version of PageStream3. Refer to the Read.1st! file for instructions.")
  382. )
  383. (delete "ram:PageStream3.pch" (safe))
  384.  
  385. ;UPDATE MACROS
  386. (if (exists "PageStream3:Macros/PageStream3.macros")
  387.     (
  388.         (rename "PageStream3:Macros/PageStream3.macros" "PageStream3:Macros/PageStream3.macros.bak")
  389.         (message "\nYour PageStream3.macros file has been renamed to PageStream3.macros.bak. If you have added your own macros to PageStream3, you will need to append them to the new macros file.\n\nRefer to page 339 for more information.")
  390.     )
  391. )
  392. (if (exists "PageStream3:Macros/BME.macros")
  393.     (
  394.         (rename "PageStream3:Macros/BME.macros" "PageStream3:Macros/BME.macros.bak")
  395.         (message "\nYour BME.macros file has been renamed to BME.macros.bak. If you have added your own macros to PageStream3, you will need to append them to the new macros file.\n\nRefer to page 339 for more information.")
  396.     )
  397. )
  398. (working "Installing Updated Macros...")
  399. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Macros x Macros.lha")
  400. (delete "Macros.LHA" (safe))
  401.  
  402. ;DELETE NASTY #####.PFB FILES
  403. (if (= (exists "PageStream3:Fonts/Intellifonts") 2)
  404.     (
  405.         (delete "PageStream3:Fonts/Intellifonts/91545.pfb" (safe))
  406.         (delete "PageStream3:Fonts/Intellifonts/91546.pfb" (safe))
  407.         (delete "PageStream3:Fonts/Intellifonts/91547.pfb" (safe))
  408.         (delete "PageStream3:Fonts/Intellifonts/91548.pfb" (safe))
  409.         (delete "PageStream3:Fonts/Intellifonts/93713.pfb" (safe))
  410.         (delete "PageStream3:Fonts/Intellifonts/93714.pfb" (safe))
  411.         (delete "PageStream3:Fonts/Intellifonts/93715.pfb" (safe))
  412.         (delete "PageStream3:Fonts/Intellifonts/93716.pfb" (safe))
  413.         (delete "PageStream3:Fonts/Intellifonts/93709.pfb" (safe))
  414.         (delete "PageStream3:Fonts/Intellifonts/93711.pfb" (safe))
  415.     )
  416. )
  417.  
  418. ;UPDATE ALL FONT PATHS
  419. (
  420.     (textfile
  421.         (dest "t:PageStream3.prefs")
  422.         (include "PageStream3:PageStream3.prefs")
  423.         (append "UPDATEFONTPATHS TRUE\n")
  424.         (safe)
  425.     )
  426.     (delete "PageStream3:PageStream3.prefs" (safe))
  427.     (copyfiles
  428.         (source "t:PageStream3.prefs")
  429.         (dest "PageStream3:")
  430.         (nogauge)
  431.     )
  432.     (delete "t:PageStream3.prefs" (safe))
  433. )
  434. (message "\nThe next time you run PageStream3, all the font paths you have added to the program will be updated when the program is loaded. Don't worry that loading the program will take a fairly long time.\n\nThis will happen only the next time you run PageStream3.")
  435.  
  436. ;INSTALL README
  437. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA")
  438. (delete "Read.LHA" (safe))
  439.  
  440. ;DISPLAY README (Try 3 different ways!)
  441. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA")
  442. (delete "Read.LHA" (safe))
  443. (IF (> (run "Sys:Utilities/MultiView PageStream3:ReadMe.Now") 0)
  444.     (IF (> (run "Sys:Utilities/AmigaGuide PageStream3:ReadMe.Now") 0)
  445.         (run "More PageStream3:ReadMe.Now")
  446.     )
  447. )
  448.  
  449. ;REMOVE THE LHEX PROGRAM
  450. (delete "ram:lhex" (safe))
  451. (delete "spatch" (safe))
  452. (delete "Install-PageStream3.0f.info" (safe))
  453.  
  454. ;GEE, THAT WAS FUN
  455. (exit "PageStream 3.0f installed!")
  456.